home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / asm / utils / flushlibs / flushlibs.s
Encoding:
Text File  |  1980-01-04  |  270 b   |  21 lines
  1.  
  2.  
  3. AllocFlush:    move.l    4.w,a6
  4.         moveq    #3,d2
  5.         move.l    #500000000,d6
  6.  
  7. AllocLoop:    subq.l    #1,d2
  8.         move.l    d6,d0
  9.         moveq    #1,d1
  10.         jsr    _LVOAllocMem(a6)
  11.  
  12.         tst.l    d0
  13.         beq.s    NoAlloc
  14.         move.l    d0,a1
  15.         move.l    d6,d0
  16.         jsr    _LVOFreeMem(a6)
  17.  
  18. NoAlloc:    dbra    d2,AllocLoop
  19.         moveq    #0,d0
  20.         rts
  21.